home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / m / multiicons.dms / multiicons.adf / Update Schubladen < prev    next >
Text File  |  1995-05-18  |  4KB  |  130 lines
  1. failat 21
  2.  
  3. if not exists Update-Icons
  4.   echo "*n Das Skript muß sich auf der MultiIcons-Disk befinden, damit es korrekt funtioniert!*n"
  5.   quit
  6. endif
  7. assign Multi: ""
  8. echo "---------------------------------------------------------------------------"
  9. echo "                 Multi Icons Schubladen-Updater V1.0"
  10. echo ""
  11. echo "Hiermit werden auf dem angegebenen Pfad hirarchaisch alle alten Schubladen-"
  12. echo "symbole durch die neuen Symbole ausgetauscht, um diesen Vorgang möglichst"
  13. echo "einfach zu gestalten."
  14. echo ""
  15. Echo "Wenn zum Beispiel alle Schubladensymbole auf der Festplatte namens DH0: um-"
  16. echo "getauscht werden sollen, geben Sie einfach als Pfadangabe DH0: an ..."
  17. echo ""
  18. echo "Es werden nur die Bildinformationen der Symbole erneuert, deren Positionen"
  19. echo "bleiben natürlich erhalten."
  20.  
  21. echo noline "*n Starten des Schubladen-Updates? "
  22.  
  23. set > nil: InpVar ?
  24.  
  25. if $InpVar eq "ja"
  26.   skip Start
  27. endif
  28.  
  29. if $InpVar eq "j"
  30.   skip Start
  31. endif
  32.  
  33. if $InpVar eq "y"
  34.   skip Start
  35. endif
  36.  
  37. if $InpVar eq "yes"
  38.   skip Start
  39. endif
  40.  
  41. echo noline "*n*e[32m Update abgebrochen."
  42. quit
  43.  
  44. lab Start
  45. resident IU MultiIcons:c/IconUpdate pure
  46.  
  47. echo "*n Information: Der Installationsvorgang kann durch Drücken von CTRL-D"
  48. echo " jederzeit abgebrochen werden ..."
  49. echo ""
  50. echo "Sollen die Icons nur in einem Directory oder mitsamt allen Unterver-"
  51. echo "zeichnissen erneuert werden?"
  52. echo "Alle Unterverzeichnisse mit = R"
  53. echo "Wählen des Modus:"
  54. set Mode [Return]
  55. set > NIL: Mode ?
  56. if $Mode eq "N"
  57.   skip PathN
  58. endif
  59. if $Mode eq "R"
  60.   skip PathR
  61. endif
  62. echo "*n Keine korrekte Eingabe erfolgt. Bitte nochmal..."
  63. wait 4
  64. skip back Start
  65.  
  66.  
  67. lab PathN
  68. echo noline "*e[0m*n*N Bitte den Pfad der zu erneuernden Symbole eingeben *e[32m"
  69. set > NIL: Path ?
  70. echo noline "*e[0m"
  71.   if > NIL: not exists $Path
  72.     echo " Ungültiger Pfad, `$path' existiert nicht! Nochmal versuchen...*n"
  73.     skip back PathN
  74.   endif
  75. echo noline "*n*n Analysis $Path nach alten Schubladen..."
  76. list > ram:MUL $Path dirs lformat "if exists *"%f%n.info*" *n  list > ram:Length *"%f%n.info*" nohead nodates *n  search > NIL: ram:Length 1233 *n  if not warn *n  else *n    search > NIL: ram:Length 2625 *n    if not warn *n    else *n      IU > NIL: cwn Update-Icons/Prefs/Env-Archive/Sys/def_Drawer.info *"%f%n.info*" *n    endif *n  endif *nendif*n"
  77. echo ".....................*e[33mDONE*e[0m"
  78. echo noline " Update Schubladen-Icons in $Path..."
  79. failat 21
  80. execute > NIL: ram:MUL
  81. if warn
  82.   echo " Update abgebrochen!"
  83.   skip end
  84. endif
  85. echo "..........................*e[33mDONE*e[0m"
  86. echo "*n*n*e[32m Drawer-Update erfolgreich beendet!*e[0m"
  87. skip trash
  88.  
  89.  
  90. lab PathR
  91. echo "*e[1;1H*e[J"
  92. echo "Dieser Modus erfordert eine Menge Speicher, der abhängig ist von der Struktur"
  93. echo "der Festplatte. Für 400 Schubladen brauchen Sie in etwa 150kB Speicher."
  94. echo noline "*e[0m*N*n*N Bitte Eingabe des Pfades ab dem erneuert werden soll *e[32m"
  95. set > NIL: Path ?
  96. echo noline "*e[0m"
  97.   if > NIL: not exists $Path
  98.     echo " Ungültiger Pfad, `$path' existiert nicht! Nochmals eingeben...*n"
  99.     skip back PathR
  100.   endif
  101. echo noline "*n*n Rekursive Analysis von $Path. Suche Schubladen ..."
  102. list > ram:MUL $Path dirs all lformat "if exists *"%f%n.info*" *n  list > ram:Length *"%f%n.info*" nohead nodates *n  search > NIL: ram:Length 1233 *n  if not warn *n  else *n    search > NIL: ram:Length 2625 *n    if not warn *n    else *n      IU > NIL: cwn Update-Icons/Prefs/Env-Archive/Sys/def_Drawer.info *"%f%n.info*" *n    endif *n  endif *nendif*n"
  103. echo "........*e[33mDONE*e[0m"
  104. echo noline "*n Recursives Updaten der Schubladen-Icons in $Path..."
  105. failat 21
  106. execute > NIL: ram:MUL
  107. if warn
  108.   echo " Update abgebrochen!"
  109.   skip end
  110. endif
  111. echo ".............*e[33mFertig*e[0m"
  112. echo "*n*n*e[32m Schubladen-Update erfolgreich beendet*e[0m"
  113.  
  114.  
  115. lab trash
  116.  
  117. cd $path
  118. if exists Trashcan.info
  119.   IU > NIL: cwn Multi:Update-Icons/Prefs/Env-Archive/Sys/def_trashcan.info Trashcan.info
  120. endif
  121.  
  122.  
  123. lab end
  124. resident IU remove
  125. delete > NIL: ram:MUL
  126. delete > NIL: ram:Length
  127. assign Multi: remove
  128. wait 4
  129. quit
  130.